home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / cursor.swg / 0020_Set CURSOR Shape.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  625 b   |  19 lines
  1. {****************************************************************************
  2.  * Procedure ..... SetCursor()
  3.  * Purpose ....... To set the cursor shape
  4.  * Parameters .... nTop       Top line of cursor
  5.  *                 nBottom    Bottom line of cursor
  6.  * Returns ....... N/A
  7.  * Notes ......... None
  8.  * Author ........ Martin Richardson
  9.  * Date .......... May 13, 1992
  10.  ****************************************************************************}
  11. PROCEDURE SetCursor( nTop, nBottom : INTEGER ); ASSEMBLER;
  12. ASM
  13.      MOV  AH, 1
  14.      MOV  CH, BYTE PTR nTop
  15.      MOV  CL, BYTE PTR nBottom
  16.      INT  10h
  17. END;
  18.  
  19.